home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / Clinic / WebTestWM.dfm / WebTestWM.txt
Encoding:
Text File  |  1999-10-21  |  1.1 KB  |  52 lines
  1. object WebModule1: TWebModule1
  2.   Actions = <
  3.     item
  4.       Default = True
  5.       Name = 'actDefault'
  6.       OnAction = WebModule1actDefaultAction
  7.     end
  8.     item
  9.       Name = 'actShowDetails'
  10.       PathInfo = '/ShowDetails'
  11.       OnAction = WebModule1actShowDetailsAction
  12.     end>
  13.   Left = 192
  14.   Top = 411
  15.   Height = 195
  16.   Width = 696
  17.   object prodDefault: TPageProducer
  18.     HTMLDoc.Strings = (
  19.       '<HTML>'
  20.       '<BODY>'
  21.       '<H1>'
  22.       'Data entry:'
  23.       '</H1>'
  24.       '<FORM ACTION="/scripts/WebTest.exe/ShowDetails" METHOD="POST">'
  25.       'Enter your name:'
  26.       '<INPUT TYPE=TEXT NAME=YourName>'
  27.       '<P>'
  28.       '<INPUT TYPE=SUBMIT VALUE="Submit">'
  29.       '</FORM>'
  30.       '</BODY>'
  31.       '</HTML>')
  32.     Left = 80
  33.     Top = 24
  34.   end
  35.   object prodShowDetails: TPageProducer
  36.     HTMLDoc.Strings = (
  37.       '<HTML>'
  38.       '<BODY>'
  39.       '<H1>'
  40.       'Your name was recorded as: '
  41.       '</H1>'
  42.       '<H2>'
  43.       '<FONT COLOR=#FF00><B><I><#YourName></B></I></FONT>'
  44.       '</H2>'
  45.       '</BODY>'
  46.       '</HTML>')
  47.     OnHTMLTag = prodShowDetailsHTMLTag
  48.     Left = 184
  49.     Top = 24
  50.   end
  51. end
  52.